home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / appleman / apiguide.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-06  |  3.4 KB  |  53 lines
  1. ' ------------------------------------------------------------------------
  2. '
  3. '     APIGUIDE.BAS -- APIGUIDE.DLL API Declarations for Visual Basic
  4. '
  5. '                       Copyright (C) 1992 Desaware
  6. '
  7. '  You have a royalty-free right to use, modify, reproduce and distribute
  8. '  this file (and/or any modified version) in any way you find useful,
  9. '  provided that you agree that Desaware and Ziff-Davis Press has no
  10. '  warranty, obligation or liability for its contents.
  11. '  Refer to the Ziff-Davis Visual Basic Programmer's Guide to the
  12. '  Windows API for further information.
  13. '
  14. ' ------------------------------------------------------------------------
  15.  
  16. ' For VB 1.0, move these two constants to your global module
  17. Global Const CTLFLG_USESPALETTE% = 2
  18. Global Const CTLFLG_HASPALETTE% = 1
  19.  
  20.  
  21. Declare Function agGetControlHwnd% Lib "Apiguide.dll" (hctl As Control)
  22. Declare Function agGetInstance% Lib "Apiguide.dll" ()
  23. Declare Sub agCopyData Lib "Apiguide.dll" (source As Any, dest As Any, ByVal nCount%)
  24. Declare Sub agCopyDataBynum Lib "Apiguide.dll" Alias "agCopyData" (ByVal source&, ByVal dest&, ByVal nCount%)
  25. Declare Function agGetAddressForObject& Lib "Apiguide.dll" (object As Any)
  26. Declare Function agGetAddressForInteger& Lib "Apiguide.dll" Alias "agGetAddressForObject" (intnum%)
  27. Declare Function agGetAddressForLong& Lib "Apiguide.dll" Alias "agGetAddressForObject" (intnum&)
  28. Declare Function agGetAddressForLPSTR& Lib "Apiguide.dll" Alias "agGetAddressForObject" (ByVal lpstring$)
  29. Declare Function agGetAddressForVBString& Lib "Apiguide.dll" (vbstring$)
  30. Declare Function agGetStringFromLPSTR$ Lib "Apiguide.dll" (ByVal lpstring$)
  31. Declare Function agGetControlName$ Lib "Apiguide.dll" (ByVal hWnd%)
  32. Declare Function agPOINTAPItoLong& Lib "Apiguide.dll" (pt As POINTAPI)
  33. Declare Sub agDWORDto2Integers Lib "Apiguide.dll" (ByVal l&, lw%, lh%)
  34. Declare Function agXPixelsToTwips& Lib "Apiguide.dll" (ByVal pixels%)
  35. Declare Function agYPixelsToTwips& Lib "Apiguide.dll" (ByVal pixels%)
  36. Declare Function agXTwipsToPixels% Lib "Apiguide.dll" (ByVal twips&)
  37. Declare Function agYTwipsToPixels% Lib "Apiguide.dll" (ByVal twips&)
  38. Declare Function agDeviceCapabilities& Lib "Apiguide.dll" (ByVal hlib%, ByVal lpszDevice$, ByVal lpszPort$, ByVal fwCapability%, ByVal lpszOutput&, ByVal lpdm&)
  39. Declare Function agDeviceMode% Lib "Apiguide.dll" (ByVal hWnd%, ByVal hModule%, ByVal lpszDevice$, ByVal lpszOutput$)
  40. Declare Function agExtDeviceMode% Lib "Apiguide.dll" (ByVal hWnd%, ByVal hDriver%, ByVal lpdmOutput&, ByVal lpszDevice$, ByVal lpszPort$, ByVal lpdmInput&, ByVal lpszProfile&, ByVal fwMode%)
  41. Declare Function agInp% Lib "Apiguide.dll" (ByVal portid%)
  42. Declare Function agInpw% Lib "Apiguide.dll" (ByVal portid%)
  43. Declare Sub agOutp Lib "Apiguide.dll" (ByVal portid%, ByVal outval%)
  44. Declare Sub agOutpw Lib "Apiguide.dll" (ByVal portid%, ByVal outval%)
  45. Declare Function agHugeOffset& Lib "Apiguide.dll" (ByVal addr&, ByVal offset&)
  46. Declare Function agVBGetVersion% Lib "Apiguide.dll" ()
  47. Declare Function agVBSendControlMsg& Lib "Apiguide.dll" (ctl As Control, ByVal msg%, ByVal wp%, ByVal lp&)
  48. Declare Function agVBSetControlFlags& Lib "Apiguide.dll" (ctl As Control, ByVal mask&, ByVal value&)
  49. Declare Sub agVBScreenToClient Lib "Apiguide.dll" (ctl As Control, pap As POINTAPI)
  50. Declare Sub agVBClientToScreen Lib "Apiguide.dll" (ctl As Control, pap As POINTAPI)
  51. Declare Function dwVBSetControlFlags& Lib "Apiguide.dll" (ctl As Control, ByVal mask&, ByVal value&)
  52.  
  53.